DEFINE	RCLASS  =<RECORD_CLASS>,
	RPTR  = <RECORD_POINTER>,
	RANY  = <RECORD_POINTER(ANY_CLASS)>,
	RNULL  = <NULL_RECORD>,
	RCELL  = <RECORD_POINTER(CELL)>,
	CADR(X) = <CELL:CAR[CELL:CDR[X]]>,
	CADDR(X) = <CELL:CAR[CELL:CDR[CELL:CDR[X]]]>,
	CADDDR(X) = <CELL:CAR[CELL:CDR[CELL:CDR[CELL:CDR[X]]]]>;

REQUIRE "SYS:RECORD.DEF" SOURCE_FILE;

EXTERNAL INTEGER PROCEDURE RECLEN(RPTR(ANY_CLASS) R);
EXTERNAL INTEGER PROCEDURE RECTYPE(RPTR(ANY_CLASS) R);
EXTERNAL RPTR($CLASS) SIMPLE PROCEDURE $RECTYPE(RPTR(ANY_CLASS) R);
EXTERNAL STRING SIMPLE PROCEDURE CVRCS(RPTR($CLASS) RC);
EXTERNAL STRING SIMPLE PROCEDURE CVRTS(INTEGER RT);
EXTERNAL RPTR(ANY_CLASS) PROCEDURE CHKREC(RPTR(ANY_CLASS)R;INTEGER T);

EXTERNAL RECORD_CLASS CELL(RECORD_POINTER(ANY_CLASS) CAR,CDR);
EXTERNAL RPTR(CELL) PROCEDURE CONS(RPTR(ANY_CLASS) A,D);
EXTERNAL RPTR(CELL) PROCEDURE APPEND(RPTR(CELL) L1, L2);
EXTERNAL RPTR(CELL) PROCEDURE LIST2(RPTR(ANY_CLASS) C1,C2);
EXTERNAL RPTR(ANY_CLASS) PROCEDURE LLOP(REFERENCE RPTR(CELL) C);
EXTERNAL RPTR(CELL) PROCEDURE CL_LEN(RPTR(CELL) C);
EXTERNAL RPTR(ANY_CLASS) PROCEDURE CONSON(RPTR(ANY_CLASS) X;REFERENCE RPTR(CELL) C);
EXTERNAL BOOLEAN PROCEDURE MEMQ (RPTR(ANY_CLASS) E;RPTR(CELL) L);

REQUIRE "RECAUX.REL[AL,HE]" LOAD_MODULE;